﻿Public Class frmProveedor

    Dim ds As DataSet = Nothing
    Dim tipo As Integer = Nothing

    Sub New(dt As DataSet, tip As Integer)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.ds = dt
        Me.tipo = tip
    End Sub

    Private Sub frmProveedor_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cargarProveedores()
    End Sub

    Sub cargarProveedores()
        dgvProveedor.DataSource = ds.Tables(0)

        If ds.Tables(0).Rows.Count <> 0 Then
            dgvProveedor.Rows(0).Selected = False
        End If
    End Sub

    Private Sub dgvProveedor_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvProveedor.CellClick
        Dim f As Integer = e.RowIndex

        If f > -1 Then
            If tipo = 1 Then
                'frmPedido.arti.txtProveedor.Text = dgvProveedor.Item("Column1", f).Value.ToString.Trim
                'frmPedido.arti.lblProveedor.Text = dgvProveedor.Item("Column2", f).Value.ToString.Trim
                frmDocumento.arti.txtProveedor.Text = dgvProveedor.Item("Column1", f).Value.ToString.Trim
            ElseIf tipo = 2 Then
                frmDescuentos.txtProveedor.Text = dgvProveedor.Item("Column1", f).Value.ToString.Trim
                frmDescuentos.lblProveedor.Text = dgvProveedor.Item("Column2", f).Value.ToString.Trim
            End If

            DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

End Class